home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / sfx5.sit / Sfx stack 5 / card_5053.txt < prev    next >
Text File  |  1988-11-26  |  30KB  |  1,189 lines
  1. -- card: 5053 from stack: in
  2. -- bmap block id: 2296
  3. -- flags: 4000
  4. -- background id: 2594
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global playWhat
  9.   set hilite of button ID 4 to TRUE
  10.   set hilite of button ID 5 to FALSE
  11.   set hilite of button ID 6 to FALSE
  12.   set hilite of button ID 7 to FALSE
  13.   set hilite of button ID 8 to FALSE
  14.   set hilite of button ID 9 to FALSE
  15.   set hilite of button ID 10 to FALSE
  16.   set hilite of button ID 11 to FALSE
  17.   set hilite of button ID 12 to FALSE
  18.   set hilite of button ID 13 to FALSE
  19.   set hilite of button ID 31 to FALSE
  20.   set hilite of button ID 32 to FALSE
  21.   set hilite of button ID 34 to FALSE
  22.   set hilite of button ID 35 to FALSE
  23.   set hilite of button ID 36 to FALSE
  24.   set hilite of button ID 37 to FALSE
  25.   set hilite of button ID 38 to FALSE
  26.   put "Beethoven54" into playWhat
  27.   put quote before playWhat
  28.   put quote after playWhat
  29. end openCard
  30.  
  31.  
  32. -- part 2 (button)
  33. -- low flags: 00
  34. -- high flags: 0000
  35. -- rect: left=454 top=290 right=317 bottom=482
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 2162 / 2162
  38. -- text alignment: 1
  39. -- font id: 0
  40. -- text size: 12
  41. -- style flags: 0
  42. -- line height: 16
  43. -- part name: 111111
  44. ----- HyperTalk script -----
  45. on mouseUp
  46.   visual effect scroll up
  47.   go to card 1
  48. end mouseUp
  49.  
  50.  
  51.  
  52. -- part 3 (button)
  53. -- low flags: 00
  54. -- high flags: 0000
  55. -- rect: left=19 top=293 right=315 bottom=48
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 9301 / 9301
  58. -- text alignment: 1
  59. -- font id: 0
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: to 2
  64. ----- HyperTalk script -----
  65. on mouseUp
  66.   play "uuuh"
  67.   visual effect venetian blinds
  68.   go to card 2
  69. end mouseUp
  70.  
  71.  
  72.  
  73. -- part 4 (button)
  74. -- low flags: 00
  75. -- high flags: 8006
  76. -- rect: left=72 top=192 right=208 bottom=192
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 0 / 0
  79. -- text alignment: 1
  80. -- font id: 0
  81. -- text size: 12
  82. -- style flags: 0
  83. -- line height: 16
  84. -- part name: Beethoven 5/4
  85. ----- HyperTalk script -----
  86. on mouseUp
  87.   global playWhat
  88.   set hilite of button ID 4 to true
  89.   set hilite of button ID 5 to FALSE
  90.   set hilite of button ID 6 to FALSE
  91.   set hilite of button ID 7 to FALSE
  92.   set hilite of button ID 8 to FALSE
  93.   set hilite of button ID 9 to FALSE
  94.   set hilite of button ID 10 to FALSE
  95.   set hilite of button ID 11 to FALSE
  96.   set hilite of button ID 12 to FALSE
  97.   set hilite of button ID 13 to FALSE
  98.   set hilite of button ID 31 to FALSE
  99.   set hilite of button ID 32 to FALSE
  100.   set hilite of button ID 34 to FALSE
  101.   set hilite of button ID 35 to FALSE
  102.   set hilite of button ID 36 to FALSE
  103.   set hilite of button ID 37 to FALSE
  104.   set hilite of button ID 38 to FALSE
  105.   put "Beethoven54" into playWhat
  106.   put quote before playWhat
  107.   put quote after playWhat
  108. end mouseUp
  109.  
  110.  
  111.  
  112. -- part 5 (button)
  113. -- low flags: 00
  114. -- high flags: 8006
  115. -- rect: left=72 top=207 right=223 bottom=179
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 1
  119. -- font id: 0
  120. -- text size: 12
  121. -- style flags: 0
  122. -- line height: 16
  123. -- part name: Clackety
  124. ----- HyperTalk script -----
  125. on mouseUp
  126.   global playWhat
  127.   set hilite of button ID 4 to FALSE
  128.   set hilite of button ID 5 to TRUE
  129.   set hilite of button ID 6 to FALSE
  130.   set hilite of button ID 7 to FALSE
  131.   set hilite of button ID 8 to FALSE
  132.   set hilite of button ID 9 to FALSE
  133.   set hilite of button ID 10 to FALSE
  134.   set hilite of button ID 11 to FALSE
  135.   set hilite of button ID 12 to FALSE
  136.   set hilite of button ID 13 to FALSE
  137.   set hilite of button ID 31 to FALSE
  138.   set hilite of button ID 32 to FALSE
  139.   set hilite of button ID 34 to FALSE
  140.   set hilite of button ID 35 to FALSE
  141.   set hilite of button ID 36 to FALSE
  142.   set hilite of button ID 37 to FALSE
  143.   set hilite of button ID 38 to FALSE
  144.   put "Clackety" into playWhat
  145.   put quote before playWhat
  146.   put quote after playWhat
  147. end mouseUp
  148.  
  149.  
  150.  
  151. -- part 6 (button)
  152. -- low flags: 00
  153. -- high flags: 8006
  154. -- rect: left=72 top=222 right=238 bottom=180
  155. -- title width / last selected line: 0
  156. -- icon id / first selected line: 0 / 0
  157. -- text alignment: 1
  158. -- font id: 0
  159. -- text size: 12
  160. -- style flags: 0
  161. -- line height: 16
  162. -- part name: Devil Dance
  163. ----- HyperTalk script -----
  164. on mouseUp
  165.   global playWhat
  166.   set hilite of button ID 4 to FALSE
  167.   set hilite of button ID 5 to FALSE
  168.   set hilite of button ID 6 to TRUE
  169.   set hilite of button ID 7 to FALSE
  170.   set hilite of button ID 8 to FALSE
  171.   set hilite of button ID 9 to FALSE
  172.   set hilite of button ID 10 to FALSE
  173.   set hilite of button ID 11 to FALSE
  174.   set hilite of button ID 12 to FALSE
  175.   set hilite of button ID 13 to FALSE
  176.   set hilite of button ID 31 to FALSE
  177.   set hilite of button ID 32 to FALSE
  178.   set hilite of button ID 34 to FALSE
  179.   set hilite of button ID 35 to FALSE
  180.   set hilite of button ID 36 to FALSE
  181.   set hilite of button ID 37 to FALSE
  182.   set hilite of button ID 38 to FALSE
  183.   put "DevilDance" into playWhat
  184.   put quote before playWhat
  185.   put quote after playWhat
  186. end mouseUp
  187.  
  188.  
  189.  
  190. -- part 7 (button)
  191. -- low flags: 00
  192. -- high flags: C006
  193. -- rect: left=72 top=237 right=253 bottom=200
  194. -- title width / last selected line: 0
  195. -- icon id / first selected line: 0 / 0
  196. -- text alignment: 1
  197. -- font id: 0
  198. -- text size: 12
  199. -- style flags: 0
  200. -- line height: 16
  201. -- part name: Flute 'B'
  202. ----- HyperTalk script -----
  203. on mouseUp
  204.   global playWhat
  205.   set hilite of button ID 4 to FALSE
  206.   set hilite of button ID 5 to FALSE
  207.   set hilite of button ID 6 to FALSE
  208.   set hilite of button ID 7 to TRUE
  209.   set hilite of button ID 8 to FALSE
  210.   set hilite of button ID 9 to FALSE
  211.   set hilite of button ID 10 to FALSE
  212.   set hilite of button ID 11 to FALSE
  213.   set hilite of button ID 12 to FALSE
  214.   set hilite of button ID 13 to FALSE
  215.   set hilite of button ID 31 to FALSE
  216.   set hilite of button ID 32 to FALSE
  217.   set hilite of button ID 34 to FALSE
  218.   set hilite of button ID 35 to FALSE
  219.   set hilite of button ID 36 to FALSE
  220.   set hilite of button ID 37 to FALSE
  221.   set hilite of button ID 38 to FALSE
  222.   put "FluteB" into playWhat
  223.   put quote before playWhat
  224.   put quote after playWhat
  225. end mouseUp
  226.  
  227.  
  228.  
  229. -- part 8 (button)
  230. -- low flags: 00
  231. -- high flags: 8006
  232. -- rect: left=72 top=252 right=268 bottom=203
  233. -- title width / last selected line: 0
  234. -- icon id / first selected line: 0 / 0
  235. -- text alignment: 1
  236. -- font id: 0
  237. -- text size: 12
  238. -- style flags: 0
  239. -- line height: 16
  240. -- part name: Lotsa Notes
  241. ----- HyperTalk script -----
  242. on mouseUp
  243.   global playWhat
  244.   set hilite of button ID 4 to FALSE
  245.   set hilite of button ID 5 to FALSE
  246.   set hilite of button ID 6 to FALSE
  247.   set hilite of button ID 7 to FALSE
  248.   set hilite of button ID 8 to TRUE
  249.   set hilite of button ID 9 to FALSE
  250.   set hilite of button ID 10 to FALSE
  251.   set hilite of button ID 11 to FALSE
  252.   set hilite of button ID 12 to FALSE
  253.   set hilite of button ID 13 to FALSE
  254.   set hilite of button ID 31 to FALSE
  255.   set hilite of button ID 32 to FALSE
  256.   set hilite of button ID 34 to FALSE
  257.   set hilite of button ID 35 to FALSE
  258.   set hilite of button ID 36 to FALSE
  259.   set hilite of button ID 37 to FALSE
  260.   set hilite of button ID 38 to FALSE
  261.   put "LotsaNotes" into playWhat
  262.   put quote before playWhat
  263.   put quote after playWhat
  264. end mouseUp
  265.  
  266.  
  267.  
  268. -- part 9 (button)
  269. -- low flags: 00
  270. -- high flags: 8006
  271. -- rect: left=207 top=191 right=207 bottom=349
  272. -- title width / last selected line: 0
  273. -- icon id / first selected line: 0 / 0
  274. -- text alignment: 1
  275. -- font id: 0
  276. -- text size: 12
  277. -- style flags: 0
  278. -- line height: 16
  279. -- part name: Chaka Khan?
  280. ----- HyperTalk script -----
  281. on mouseUp
  282.   global playWhat
  283.   set hilite of button ID 4 to FALSE
  284.   set hilite of button ID 5 to FALSE
  285.   set hilite of button ID 6 to FALSE
  286.   set hilite of button ID 7 to FALSE
  287.   set hilite of button ID 8 to FALSE
  288.   set hilite of button ID 9 to TRUE
  289.   set hilite of button ID 10 to FALSE
  290.   set hilite of button ID 11 to FALSE
  291.   set hilite of button ID 12 to FALSE
  292.   set hilite of button ID 13 to FALSE
  293.   set hilite of button ID 31 to FALSE
  294.   set hilite of button ID 32 to FALSE
  295.   set hilite of button ID 34 to FALSE
  296.   set hilite of button ID 35 to FALSE
  297.   set hilite of button ID 36 to FALSE
  298.   set hilite of button ID 37 to FALSE
  299.   set hilite of button ID 38 to FALSE
  300.   put "ChakaKhan" into playWhat
  301.   put quote before playWhat
  302.   put quote after playWhat
  303. end mouseUp
  304.  
  305.  
  306.  
  307. -- part 10 (button)
  308. -- low flags: 00
  309. -- high flags: 8006
  310. -- rect: left=207 top=206 right=222 bottom=350
  311. -- title width / last selected line: 0
  312. -- icon id / first selected line: 0 / 0
  313. -- text alignment: 1
  314. -- font id: 0
  315. -- text size: 12
  316. -- style flags: 0
  317. -- line height: 16
  318. -- part name: Day In The Life
  319. ----- HyperTalk script -----
  320. on mouseUp
  321.   global playWhat
  322.   set hilite of button ID 4 to FALSE
  323.   set hilite of button ID 5 to FALSE
  324.   set hilite of button ID 6 to FALSE
  325.   set hilite of button ID 7 to FALSE
  326.   set hilite of button ID 8 to FALSE
  327.   set hilite of button ID 9 to FALSE
  328.   set hilite of button ID 10 to TRUE
  329.   set hilite of button ID 11 to FALSE
  330.   set hilite of button ID 12 to FALSE
  331.   set hilite of button ID 13 to FALSE
  332.   set hilite of button ID 31 to FALSE
  333.   set hilite of button ID 32 to FALSE
  334.   set hilite of button ID 34 to FALSE
  335.   set hilite of button ID 35 to FALSE
  336.   set hilite of button ID 36 to FALSE
  337.   set hilite of button ID 37 to FALSE
  338.   set hilite of button ID 38 to FALSE
  339.   put "DayInTheLife" into playWhat
  340.   put quote before playWhat
  341.   put quote after playWhat
  342. end mouseUp
  343.  
  344.  
  345.  
  346. -- part 11 (button)
  347. -- low flags: 00
  348. -- high flags: 8006
  349. -- rect: left=207 top=222 right=238 bottom=350
  350. -- title width / last selected line: 0
  351. -- icon id / first selected line: 0 / 0
  352. -- text alignment: 1
  353. -- font id: 0
  354. -- text size: 12
  355. -- style flags: 0
  356. -- line height: 16
  357. -- part name: Die!
  358. ----- HyperTalk script -----
  359. on mouseUp
  360.   global playWhat
  361.   set hilite of button ID 4 to FALSE
  362.   set hilite of button ID 5 to FALSE
  363.   set hilite of button ID 6 to FALSE
  364.   set hilite of button ID 7 to FALSE
  365.   set hilite of button ID 8 to FALSE
  366.   set hilite of button ID 9 to FALSE
  367.   set hilite of button ID 10 to FALSE
  368.   set hilite of button ID 11 to TRUE
  369.   set hilite of button ID 12 to FALSE
  370.   set hilite of button ID 13 to FALSE
  371.   set hilite of button ID 31 to FALSE
  372.   set hilite of button ID 32 to FALSE
  373.   set hilite of button ID 34 to FALSE
  374.   set hilite of button ID 35 to FALSE
  375.   set hilite of button ID 36 to FALSE
  376.   set hilite of button ID 37 to FALSE
  377.   set hilite of button ID 38 to FALSE
  378.   put "Die" into playWhat
  379.   put quote before playWhat
  380.   put quote after playWhat
  381. end mouseUp
  382.  
  383.  
  384.  
  385. -- part 12 (button)
  386. -- low flags: 00
  387. -- high flags: 8006
  388. -- rect: left=207 top=238 right=255 bottom=350
  389. -- title width / last selected line: 0
  390. -- icon id / first selected line: 0 / 0
  391. -- text alignment: 1
  392. -- font id: 0
  393. -- text size: 12
  394. -- style flags: 0
  395. -- line height: 16
  396. -- part name: Nasty Car
  397. ----- HyperTalk script -----
  398. on mouseUp
  399.   global playWhat
  400.   set hilite of button ID 4 to FALSE
  401.   set hilite of button ID 5 to FALSE
  402.   set hilite of button ID 6 to FALSE
  403.   set hilite of button ID 7 to FALSE
  404.   set hilite of button ID 8 to FALSE
  405.   set hilite of button ID 9 to FALSE
  406.   set hilite of button ID 10 to FALSE
  407.   set hilite of button ID 11 to FALSE
  408.   set hilite of button ID 12 to TRUE
  409.   set hilite of button ID 13 to FALSE
  410.   set hilite of button ID 31 to FALSE
  411.   set hilite of button ID 32 to FALSE
  412.   set hilite of button ID 34 to FALSE
  413.   set hilite of button ID 35 to FALSE
  414.   set hilite of button ID 36 to FALSE
  415.   set hilite of button ID 37 to FALSE
  416.   set hilite of button ID 38 to FALSE
  417.   put "NastyCar" into playWhat
  418.   put quote before playWhat
  419.   put quote after playWhat
  420. end mouseUp
  421.  
  422.  
  423.  
  424. -- part 13 (button)
  425. -- low flags: 00
  426. -- high flags: 8006
  427. -- rect: left=207 top=254 right=271 bottom=349
  428. -- title width / last selected line: 0
  429. -- icon id / first selected line: 0 / 0
  430. -- text alignment: 1
  431. -- font id: 0
  432. -- text size: 12
  433. -- style flags: 0
  434. -- line height: 16
  435. -- part name: Not My Lover
  436. ----- HyperTalk script -----
  437. on mouseUp
  438.   global playWhat
  439.   set hilite of button ID 4 to FALSE
  440.   set hilite of button ID 5 to FALSE
  441.   set hilite of button ID 6 to FALSE
  442.   set hilite of button ID 7 to FALSE
  443.   set hilite of button ID 8 to FALSE
  444.   set hilite of button ID 9 to FALSE
  445.   set hilite of button ID 10 to FALSE
  446.   set hilite of button ID 11 to FALSE
  447.   set hilite of button ID 12 to FALSE
  448.   set hilite of button ID 13 to TRUE
  449.   set hilite of button ID 31 to FALSE
  450.   set hilite of button ID 32 to FALSE
  451.   set hilite of button ID 34 to FALSE
  452.   set hilite of button ID 35 to FALSE
  453.   set hilite of button ID 36 to FALSE
  454.   set hilite of button ID 37 to FALSE
  455.   set hilite of button ID 38 to FALSE
  456.   put "NotMyLover" into playWhat
  457.   put quote before playWhat
  458.   put quote after playWhat
  459. end mouseUp
  460.  
  461.  
  462.  
  463. -- part 15 (button)
  464. -- low flags: 00
  465. -- high flags: A004
  466. -- rect: left=39 top=46 right=69 bottom=169
  467. -- title width / last selected line: 0
  468. -- icon id / first selected line: 0 / 0
  469. -- text alignment: 1
  470. -- font id: 0
  471. -- text size: 12
  472. -- style flags: 0
  473. -- line height: 16
  474. -- part name: Volga Boatman
  475. ----- HyperTalk script -----
  476. on mouseUp
  477.   global playWhat
  478.   put playWhat into cmd
  479.   put "play" before cmd
  480.   put cmd into temp
  481.   put "tempo 50 c4e a3 d4q a3h" into foist
  482.   put "tempo 50 c4q f ee fs es dq" into sexond
  483.   put temp && foist into doit
  484.   do doit
  485.   do doit
  486.   put temp && sexond into doit
  487.   do doit
  488.   put temp && foist into doit
  489.   do doit
  490. end mouseUp
  491.  
  492.  
  493.  
  494. -- part 16 (button)
  495. -- low flags: 00
  496. -- high flags: A004
  497. -- rect: left=39 top=71 right=93 bottom=170
  498. -- title width / last selected line: 0
  499. -- icon id / first selected line: 0 / 0
  500. -- text alignment: 1
  501. -- font id: 0
  502. -- text size: 12
  503. -- style flags: 0
  504. -- line height: 16
  505. -- part name: Three Blind Mice
  506. ----- HyperTalk script -----
  507. on mouseUp
  508.   global playWhat
  509.   put playWhat into cmd
  510.   put "play" before cmd
  511.   put cmd into temp
  512.   put "tempo 180 e4q d ch" into foist
  513.   put "tempo 180 g4q fe. fs eh" into sexond
  514.   put "tempo 180 g4s c5e. cs b4e3 a b c5e. g4s ge. gs" into thoid
  515.   put temp && foist into doit
  516.   do doit
  517.   do doit
  518.   put temp && sexond into doit
  519.   do doit
  520.   do doit
  521.   put temp && thoid into doit
  522.   do doit
  523.   do doit
  524.   do doit
  525.   put temp && foist into doit
  526.   do doit
  527.   do doit
  528. end mouseUp
  529.  
  530.  
  531.  
  532. -- part 17 (button)
  533. -- low flags: 00
  534. -- high flags: A004
  535. -- rect: left=39 top=95 right=117 bottom=170
  536. -- title width / last selected line: 0
  537. -- icon id / first selected line: 0 / 0
  538. -- text alignment: 1
  539. -- font id: 0
  540. -- text size: 12
  541. -- style flags: 0
  542. -- line height: 16
  543. -- part name: Sleigh Ride
  544. ----- HyperTalk script -----
  545. on mouseUp
  546.   global playWhat
  547.   put playWhat into cmd
  548.   put "play" before cmd
  549.   put cmd into temp
  550.   put "tempo 140 g4e g g g a gs e ce d e ds b3s ae gh" into foist
  551.   put temp && foist into doit
  552.   do doit
  553. end mouseUp
  554.  
  555.  
  556.  
  557. -- part 18 (button)
  558. -- low flags: 00
  559. -- high flags: A004
  560. -- rect: left=39 top=120 right=142 bottom=170
  561. -- title width / last selected line: 0
  562. -- icon id / first selected line: 0 / 0
  563. -- text alignment: 1
  564. -- font id: 0
  565. -- text size: 12
  566. -- style flags: 0
  567. -- line height: 16
  568. -- part name: Nachtmusik
  569. ----- HyperTalk script -----
  570. on mouseUp
  571.   global playWhat
  572.   put playWhat into cmd
  573.   put "play" before cmd
  574.   put cmd into temp
  575.   put "tempo 120 c4q. g3e c4q. g3e c4e g3 c4 e gh" into foist
  576.   put "tempo 120 f4q. de fq. de f d b3 d4 g3h" into sexond
  577.   put temp && foist into doit
  578.   do doit
  579.   put temp && sexond into doit
  580.   do doit
  581. end mouseUp
  582.  
  583.  
  584.  
  585. -- part 19 (button)
  586. -- low flags: 00
  587. -- high flags: A004
  588. -- rect: left=40 top=145 right=167 bottom=171
  589. -- title width / last selected line: 0
  590. -- icon id / first selected line: 0 / 0
  591. -- text alignment: 1
  592. -- font id: 0
  593. -- text size: 12
  594. -- style flags: 0
  595. -- line height: 16
  596. -- part name: Star Trek
  597. ----- HyperTalk script -----
  598. on mouseUp
  599.   global playWhat
  600.   put playWhat into cmd
  601.   put "play" before cmd
  602.   put cmd into temp
  603.   put "tempo 140 g3h f4h. eq dq3 c b3 a#w" into foist
  604.   put "tempo 140 a3q gh g4h. fq eq3 d c b3w" into sexond
  605.   put temp && foist into doit
  606.   do doit
  607.   put temp && sexond into doit
  608.   play "silence" tempo 140 ch.
  609.   do doit
  610. end mouseUp
  611.  
  612.  
  613.  
  614. -- part 20 (button)
  615. -- low flags: 00
  616. -- high flags: A004
  617. -- rect: left=176 top=46 right=69 bottom=306
  618. -- title width / last selected line: 0
  619. -- icon id / first selected line: 0 / 0
  620. -- text alignment: 1
  621. -- font id: 0
  622. -- text size: 12
  623. -- style flags: 0
  624. -- line height: 16
  625. -- part name: Row, Row
  626. ----- HyperTalk script -----
  627. on mouseUp
  628.   global playWhat
  629.   put playWhat into cmd
  630.   put "play" before cmd
  631.   put cmd into temp
  632.   put "tempo 120 c4q c ce. ds eq ee. ds ee. fs gh" into foist
  633.   put "tempo 120 c5e3 c c g4 g g e e e c c c ge. fs ee. ds ch" into sexond
  634.   put temp && foist into doit
  635.   do doit
  636.   put temp && sexond into doit
  637.   do doit
  638. end mouseUp
  639.  
  640.  
  641.  
  642. -- part 21 (button)
  643. -- low flags: 00
  644. -- high flags: A004
  645. -- rect: left=176 top=70 right=93 bottom=306
  646. -- title width / last selected line: 0
  647. -- icon id / first selected line: 0 / 0
  648. -- text alignment: 1
  649. -- font id: 0
  650. -- text size: 12
  651. -- style flags: 0
  652. -- line height: 16
  653. -- part name: Jingle Bells
  654. ----- HyperTalk script -----
  655. on mouseUp
  656.   global playWhat
  657.   put playWhat into cmd
  658.   put "play" before cmd
  659.   put cmd into temp
  660.   put "tempo 120 e4e e eq ee e eq" into foist
  661.   put "tempo 120 e4e g ce. ds eh" into sexond
  662.   put temp && foist into doit
  663.   do doit
  664.   put temp && sexond into doit
  665.   do doit
  666. end mouseUp
  667.  
  668.  
  669.  
  670. -- part 22 (button)
  671. -- low flags: 00
  672. -- high flags: A004
  673. -- rect: left=176 top=95 right=118 bottom=306
  674. -- title width / last selected line: 0
  675. -- icon id / first selected line: 0 / 0
  676. -- text alignment: 1
  677. -- font id: 0
  678. -- text size: 12
  679. -- style flags: 0
  680. -- line height: 16
  681. -- part name: SS Banner
  682. ----- HyperTalk script -----
  683. on mouseUp
  684.   global playWhat
  685.   put playWhat into cmd
  686.   put "play" before cmd
  687.   put cmd into temp
  688.   put "tempo 80 g4e. es cq e g c5h" into foist
  689.   put "tempo 80 e5e. ds cq e4 f# gh" into sexond
  690.   put temp && foist into doit
  691.   do doit
  692.   put temp && sexond into doit
  693.   do doit
  694. end mouseUp
  695.  
  696.  
  697.  
  698. -- part 23 (button)
  699. -- low flags: 00
  700. -- high flags: A004
  701. -- rect: left=176 top=120 right=143 bottom=306
  702. -- title width / last selected line: 0
  703. -- icon id / first selected line: 0 / 0
  704. -- text alignment: 1
  705. -- font id: 0
  706. -- text size: 12
  707. -- style flags: 0
  708. -- line height: 16
  709. -- part name: Mozart 40
  710. ----- HyperTalk script -----
  711. on mouseUp
  712.   global playWhat
  713.   put playWhat into cmd
  714.   put "play" before cmd
  715.   put cmd into temp
  716.   put "tempo 200 c#4e c cq c#e c cq c#e c cq g#h" into foist
  717.   put "tempo 200 g#4e g fq fe d# c#q c#e c a#3q a#h" into sexond
  718.   put temp && foist into doit
  719.   do doit
  720.   put temp && sexond into doit
  721.   do doit
  722. end mouseUp
  723.  
  724.  
  725.  
  726. -- part 24 (button)
  727. -- low flags: 00
  728. -- high flags: A004
  729. -- rect: left=176 top=144 right=167 bottom=306
  730. -- title width / last selected line: 0
  731. -- icon id / first selected line: 0 / 0
  732. -- text alignment: 1
  733. -- font id: 0
  734. -- text size: 12
  735. -- style flags: 0
  736. -- line height: 16
  737. -- part name: Happy Birthday
  738. ----- HyperTalk script -----
  739. on mouseUp
  740.   global playWhat
  741.   put playWhat into cmd
  742.   put "play" before cmd
  743.   put cmd into temp
  744.   put "tempo 110 g3e. gs aq g c4 b3h g3e. gs aq g d4 ch" into foist
  745.   put "tempo 110 g3e. gs g4q e c b3 ah f4e. fs eq c d ch." into sexond
  746.   put temp && foist into doit
  747.   do doit
  748.   put temp && sexond into doit
  749.   do doit
  750. end mouseUp
  751.  
  752.  
  753.  
  754. -- part 25 (button)
  755. -- low flags: 00
  756. -- high flags: A004
  757. -- rect: left=310 top=46 right=69 bottom=440
  758. -- title width / last selected line: 0
  759. -- icon id / first selected line: 0 / 0
  760. -- text alignment: 1
  761. -- font id: 0
  762. -- text size: 12
  763. -- style flags: 0
  764. -- line height: 16
  765. -- part name: Johnny
  766. ----- HyperTalk script -----
  767. on mouseUp
  768.   set hilite of button 23 to TRUE
  769.   global playWhat
  770.   put playWhat into cmd
  771.   put "play" before cmd
  772.   put cmd into temp
  773.   put "tempo 360 g3q c4 c c ch dq d#h dq d#h cq a#3w" into foist
  774.   put "tempo 360 g3q a#w." into sexond
  775.   put temp && foist into doit
  776.   do doit
  777.   put temp && sexond into doit
  778.   play "silence" tempo 360 cq
  779.   do doit
  780.   wait until the sound is "done"
  781.   set hilite of button 23 to FALSE
  782. end mouseUp
  783.  
  784.  
  785.  
  786. -- part 26 (button)
  787. -- low flags: 00
  788. -- high flags: A004
  789. -- rect: left=310 top=70 right=93 bottom=440
  790. -- title width / last selected line: 0
  791. -- icon id / first selected line: 0 / 0
  792. -- text alignment: 1
  793. -- font id: 0
  794. -- text size: 12
  795. -- style flags: 0
  796. -- line height: 16
  797. -- part name: Fate
  798. ----- HyperTalk script -----
  799. on mouseUp
  800.   global playWhat
  801.   put playWhat into cmd
  802.   put "play" before cmd
  803.   put cmd into temp
  804.   put "tempo 80 g4s g g d#h" into foist
  805.   put "tempo 80 fs f f dh" into sexond
  806.   put temp && foist into doit
  807.   do doit
  808.   put temp && sexond into doit
  809.   do doit
  810. end mouseUp
  811.  
  812.  
  813.  
  814. -- part 27 (button)
  815. -- low flags: 00
  816. -- high flags: A004
  817. -- rect: left=310 top=95 right=118 bottom=440
  818. -- title width / last selected line: 0
  819. -- icon id / first selected line: 0 / 0
  820. -- text alignment: 1
  821. -- font id: 0
  822. -- text size: 12
  823. -- style flags: 0
  824. -- line height: 16
  825. -- part name: FrÄre Jacques
  826. ----- HyperTalk script -----
  827. on mouseUp
  828.   global playWhat
  829.   put playWhat into cmd
  830.   put "play" before cmd
  831.   put cmd into temp
  832.   put "tempo 80 c4e d e c c d e c e f gq ee f gq" into foist
  833.   put "tempo 80 g4s a g f ee c gs a g f ee c c g3 c4q ce g3 c4q" into sexond
  834.   put temp && foist into doit
  835.   do doit
  836.   put temp && sexond into doit
  837.   do doit
  838. end mouseUp
  839.  
  840.  
  841.  
  842. -- part 28 (button)
  843. -- low flags: 00
  844. -- high flags: A004
  845. -- rect: left=310 top=120 right=143 bottom=440
  846. -- title width / last selected line: 0
  847. -- icon id / first selected line: 0 / 0
  848. -- text alignment: 1
  849. -- font id: 0
  850. -- text size: 12
  851. -- style flags: 0
  852. -- line height: 16
  853. -- part name: Fast scale
  854. ----- HyperTalk script -----
  855. on mouseUp
  856.   global playWhat
  857.   put playWhat into cmd
  858.   put "play" before cmd
  859.   put cmd into temp
  860.   put "tempo 200 ce d e f g a b c5 d e f g a b" into foist
  861.   put "tempo 200 c6e b5 a g f e d c b4 a g f e d cw" into sexond
  862.   put temp && foist into doit
  863.   do doit
  864.   put temp && sexond into doit
  865.   do doit
  866. end mouseUp
  867.  
  868.  
  869.  
  870. -- part 29 (button)
  871. -- low flags: 00
  872. -- high flags: A004
  873. -- rect: left=310 top=144 right=167 bottom=440
  874. -- title width / last selected line: 0
  875. -- icon id / first selected line: 0 / 0
  876. -- text alignment: 1
  877. -- font id: 0
  878. -- text size: 12
  879. -- style flags: 0
  880. -- line height: 16
  881. -- part name: Fƒr Elise
  882. ----- HyperTalk script -----
  883. on mouseUp
  884.   global playWhat
  885.   put playWhat into cmd
  886.   put "play" before cmd
  887.   put cmd into temp
  888.   put "tempo 120 e5e d# e d# e b4 d5 c a4q. ce e a bq. ee g# b c5q." into foist
  889.   put "tempo 120 e4e e5 d# e d# e b4 d5 c a4q. ce e a bq. ee c5 b4 aq." into sexond
  890.   put temp && foist into doit
  891.   do doit
  892.   put temp && sexond into doit
  893.   do doit
  894. end mouseUp
  895.  
  896.  
  897.  
  898. -- part 31 (button)
  899. -- low flags: 00
  900. -- high flags: 8006
  901. -- rect: left=72 top=267 right=284 bottom=203
  902. -- title width / last selected line: 0
  903. -- icon id / first selected line: 0 / 0
  904. -- text alignment: 1
  905. -- font id: 0
  906. -- text size: 12
  907. -- style flags: 0
  908. -- line height: 16
  909. -- part name: Rite Chord
  910. ----- HyperTalk script -----
  911. on mouseUp
  912.   global playWhat
  913.   set hilite of button ID 4 to FALSE
  914.   set hilite of button ID 5 to FALSE
  915.   set hilite of button ID 6 to FALSE
  916.   set hilite of button ID 7 to FALSE
  917.   set hilite of button ID 8 to FALSE
  918.   set hilite of button ID 9 to FALSE
  919.   set hilite of button ID 10 to FALSE
  920.   set hilite of button ID 11 to FALSE
  921.   set hilite of button ID 12 to FALSE
  922.   set hilite of button ID 13 to FALSE
  923.   set hilite of button ID 31 to TRUE
  924.   set hilite of button ID 32 to FALSE
  925.   set hilite of button ID 34 to FALSE
  926.   set hilite of button ID 35 to FALSE
  927.   set hilite of button ID 36 to FALSE
  928.   set hilite of button ID 37 to FALSE
  929.   set hilite of button ID 38 to FALSE
  930.   put "Rite6" into playWhat
  931.   put quote before playWhat
  932.   put quote after playWhat
  933. end mouseUp
  934.  
  935.  
  936.  
  937. -- part 32 (button)
  938. -- low flags: 00
  939. -- high flags: 8006
  940. -- rect: left=207 top=270 right=288 bottom=348
  941. -- title width / last selected line: 0
  942. -- icon id / first selected line: 0 / 0
  943. -- text alignment: 1
  944. -- font id: 0
  945. -- text size: 12
  946. -- style flags: 0
  947. -- line height: 16
  948. -- part name: Sledge Flute
  949. ----- HyperTalk script -----
  950. on mouseUp
  951.   global playWhat
  952.   set hilite of button ID 4 to FALSE
  953.   set hilite of button ID 5 to FALSE
  954.   set hilite of button ID 6 to FALSE
  955.   set hilite of button ID 7 to FALSE
  956.   set hilite of button ID 8 to FALSE
  957.   set hilite of button ID 9 to FALSE
  958.   set hilite of button ID 10 to FALSE
  959.   set hilite of button ID 11 to FALSE
  960.   set hilite of button ID 12 to FALSE
  961.   set hilite of button ID 13 to FALSE
  962.   set hilite of button ID 31 to FALSE
  963.   set hilite of button ID 32 to TRUE
  964.   set hilite of button ID 34 to FALSE
  965.   set hilite of button ID 35 to FALSE
  966.   set hilite of button ID 36 to FALSE
  967.   set hilite of button ID 37 to FALSE
  968.   set hilite of button ID 38 to FALSE
  969.   put "SledgeFlute" into playWhat
  970.   put quote before playWhat
  971.   put quote after playWhat
  972. end mouseUp
  973.  
  974.  
  975.  
  976. -- part 33 (button)
  977. -- low flags: 00
  978. -- high flags: 2000
  979. -- rect: left=17 top=262 right=286 bottom=51
  980. -- title width / last selected line: 0
  981. -- icon id / first selected line: 19678 / 19678
  982. -- text alignment: 1
  983. -- font id: 0
  984. -- text size: 12
  985. -- style flags: 0
  986. -- line height: 16
  987. -- part name: ?
  988. ----- HyperTalk script -----
  989. on mouseUp
  990.   visual dissolve
  991.   go to card 2
  992. end mouseUp
  993.  
  994.  
  995.  
  996. -- part 34 (button)
  997. -- low flags: 00
  998. -- high flags: 8006
  999. -- rect: left=72 top=283 right=300 bottom=203
  1000. -- title width / last selected line: 0
  1001. -- icon id / first selected line: 0 / 0
  1002. -- text alignment: 1
  1003. -- font id: 0
  1004. -- text size: 12
  1005. -- style flags: 0
  1006. -- line height: 16
  1007. -- part name: Romeo & Juliet
  1008. ----- HyperTalk script -----
  1009. on mouseUp
  1010.   global playWhat
  1011.   set hilite of button ID 4 to FALSE
  1012.   set hilite of button ID 5 to FALSE
  1013.   set hilite of button ID 6 to FALSE
  1014.   set hilite of button ID 7 to FALSE
  1015.   set hilite of button ID 8 to FALSE
  1016.   set hilite of button ID 9 to FALSE
  1017.   set hilite of button ID 10 to FALSE
  1018.   set hilite of button ID 11 to FALSE
  1019.   set hilite of button ID 12 to FALSE
  1020.   set hilite of button ID 13 to FALSE
  1021.   set hilite of button ID 31 to FALSE
  1022.   set hilite of button ID 32 to FALSE
  1023.   set hilite of button ID 34 to TRUE
  1024.   set hilite of button ID 35 to FALSE
  1025.   set hilite of button ID 36 to FALSE
  1026.   set hilite of button ID 37 to FALSE
  1027.   set hilite of button ID 38 to FALSE
  1028.   put "Romeo" into playWhat
  1029.   put quote before playWhat
  1030.   put quote after playWhat
  1031. end mouseUp
  1032.  
  1033.  
  1034.  
  1035. -- part 35 (button)
  1036. -- low flags: 00
  1037. -- high flags: 8006
  1038. -- rect: left=351 top=206 right=222 bottom=487
  1039. -- title width / last selected line: 0
  1040. -- icon id / first selected line: 0 / 0
  1041. -- text alignment: 1
  1042. -- font id: 0
  1043. -- text size: 12
  1044. -- style flags: 0
  1045. -- line height: 16
  1046. -- part name: Good Ideas
  1047. ----- HyperTalk script -----
  1048. on mouseUp
  1049.   global playWhat
  1050.   set hilite of button ID 4 to FALSE
  1051.   set hilite of button ID 5 to FALSE
  1052.   set hilite of button ID 6 to FALSE
  1053.   set hilite of button ID 7 to FALSE
  1054.   set hilite of button ID 8 to FALSE
  1055.   set hilite of button ID 9 to FALSE
  1056.   set hilite of button ID 10 to FALSE
  1057.   set hilite of button ID 11 to FALSE
  1058.   set hilite of button ID 12 to FALSE
  1059.   set hilite of button ID 13 to FALSE
  1060.   set hilite of button ID 31 to FALSE
  1061.   set hilite of button ID 32 to FALSE
  1062.   set hilite of button ID 34 to FALSE
  1063.   set hilite of button ID 35 to TRUE
  1064.   set hilite of button ID 36 to FALSE
  1065.   set hilite of button ID 37 to FALSE
  1066.   set hilite of button ID 38 to FALSE
  1067.   put "GoodIdeas" into playWhat
  1068.   put quote before playWhat
  1069.   put quote after playWhat
  1070. end mouseUp
  1071.  
  1072.  
  1073.  
  1074. -- part 36 (button)
  1075. -- low flags: 00
  1076. -- high flags: 8006
  1077. -- rect: left=351 top=222 right=238 bottom=487
  1078. -- title width / last selected line: 0
  1079. -- icon id / first selected line: 0 / 0
  1080. -- text alignment: 1
  1081. -- font id: 0
  1082. -- text size: 12
  1083. -- style flags: 0
  1084. -- line height: 16
  1085. -- part name: I Shot a Moose
  1086. ----- HyperTalk script -----
  1087. on mouseUp
  1088.   global playWhat
  1089.   set hilite of button ID 4 to FALSE
  1090.   set hilite of button ID 5 to FALSE
  1091.   set hilite of button ID 6 to FALSE
  1092.   set hilite of button ID 7 to FALSE
  1093.   set hilite of button ID 8 to FALSE
  1094.   set hilite of button ID 9 to FALSE
  1095.   set hilite of button ID 10 to FALSE
  1096.   set hilite of button ID 11 to FALSE
  1097.   set hilite of button ID 12 to FALSE
  1098.   set hilite of button ID 13 to FALSE
  1099.   set hilite of button ID 31 to FALSE
  1100.   set hilite of button ID 32 to FALSE
  1101.   set hilite of button ID 34 to FALSE
  1102.   set hilite of button ID 35 to FALSE
  1103.   set hilite of button ID 36 to TRUE
  1104.   set hilite of button ID 37 to FALSE
  1105.   set hilite of button ID 38 to FALSE
  1106.   put "ShotAMoose" into playWhat
  1107.   put quote before playWhat
  1108.   put quote after playWhat
  1109. end mouseUp
  1110.  
  1111.  
  1112.  
  1113. -- part 37 (button)
  1114. -- low flags: 00
  1115. -- high flags: 8006
  1116. -- rect: left=351 top=237 right=253 bottom=487
  1117. -- title width / last selected line: 0
  1118. -- icon id / first selected line: 0 / 0
  1119. -- text alignment: 1
  1120. -- font id: 0
  1121. -- text size: 12
  1122. -- style flags: 0
  1123. -- line height: 16
  1124. -- part name: Or?
  1125. ----- HyperTalk script -----
  1126. on mouseUp
  1127.   global playWhat
  1128.   set hilite of button ID 4 to FALSE
  1129.   set hilite of button ID 5 to FALSE
  1130.   set hilite of button ID 6 to FALSE
  1131.   set hilite of button ID 7 to FALSE
  1132.   set hilite of button ID 8 to FALSE
  1133.   set hilite of button ID 9 to FALSE
  1134.   set hilite of button ID 10 to FALSE
  1135.   set hilite of button ID 11 to FALSE
  1136.   set hilite of button ID 12 to FALSE
  1137.   set hilite of button ID 13 to FALSE
  1138.   set hilite of button ID 31 to FALSE
  1139.   set hilite of button ID 32 to FALSE
  1140.   set hilite of button ID 34 to FALSE
  1141.   set hilite of button ID 35 to FALSE
  1142.   set hilite of button ID 36 to FALSE
  1143.   set hilite of button ID 37 to TRUE
  1144.   set hilite of button ID 38 to FALSE
  1145.   put "Oorr" into playWhat
  1146.   put quote before playWhat
  1147.   put quote after playWhat
  1148. end mouseUp
  1149.  
  1150.  
  1151.  
  1152. -- part 38 (button)
  1153. -- low flags: 00
  1154. -- high flags: 8006
  1155. -- rect: left=351 top=253 right=269 bottom=487
  1156. -- title width / last selected line: 0
  1157. -- icon id / first selected line: 0 / 0
  1158. -- text alignment: 1
  1159. -- font id: 0
  1160. -- text size: 12
  1161. -- style flags: 0
  1162. -- line height: 16
  1163. -- part name: Start
  1164. ----- HyperTalk script -----
  1165. on mouseUp
  1166.   global playWhat
  1167.   set hilite of button ID 4 to FALSE
  1168.   set hilite of button ID 5 to FALSE
  1169.   set hilite of button ID 6 to FALSE
  1170.   set hilite of button ID 7 to FALSE
  1171.   set hilite of button ID 8 to FALSE
  1172.   set hilite of button ID 9 to FALSE
  1173.   set hilite of button ID 10 to FALSE
  1174.   set hilite of button ID 11 to FALSE
  1175.   set hilite of button ID 12 to FALSE
  1176.   set hilite of button ID 13 to FALSE
  1177.   set hilite of button ID 31 to FALSE
  1178.   set hilite of button ID 32 to FALSE
  1179.   set hilite of button ID 34 to FALSE
  1180.   set hilite of button ID 35 to FALSE
  1181.   set hilite of button ID 36 to FALSE
  1182.   set hilite of button ID 37 to FALSE
  1183.   set hilite of button ID 38 to TRUE
  1184.   put "Start" into playWhat
  1185.   put quote before playWhat
  1186.   put quote after playWhat
  1187. end mouseUp
  1188.  
  1189.